home *** CD-ROM | disk | FTP | other *** search
/ Floppyshop 2 / Floppyshop - 2.zip / Floppyshop - 2.iso / diskmags / 4671-5.790 / dmg-4695 / giveway.17 / source / pong.bas (.txt) < prev    next >
Atari STOS Basic  |  1987-04-21  |  3KB  |  46 lines
  1. 10 REM !!PONG!!
  2. 100 SPRITE
  3. 110 SPRITE
  4. 120 BELL
  5. 130 REM move bat 1
  6. 140 IF
  7. 150 IF
  8. 160 REM move bat 1
  9. 170 IF
  10. 180 IF
  11. 190 REM move ball
  12. 20 MODE
  13. 200 IF
  14. 210 IF
  15. 220 IF
  16. 230 IF
  17. 240 REM bounce ball
  18. 250 IF
  19. 260 IF
  20. 270 IF
  21. 280 IF
  22. 290 REM bounc of bats
  23. 30 CURS
  24. 300 IF
  25. 310 IF
  26. 320 IF
  27. 330 IF
  28. 340 IF
  29. 350 GOTO
  30. 360 IF
  31. 370 IF
  32. 380 IF
  33. 390 LOCATE
  34. 4 REM Checked GFF א™
  35. 40 HIDE
  36. 400 LOCATE
  37. 410 LOCATE
  38. 420 VARNAME
  39. 430 GOTO
  40. 5 CLS
  41. 50 VARNAME
  42. 60 VARNAME
  43. 70 VARNAME
  44. 80 REM set up screen
  45. 90 SPRITE
  46.